Attribute VB_Name = "modVBUnit"
Option Explicit

Public gNotifier As Object
Public gResult As New ResultPrimitive

Public Type Aperture
    Title As String
    LeftPos As Integer
    width As Integer
End Type

Public Function max(LHS As Integer, RHS As Integer) As Integer
max = LHS
If RHS > max Then
    max = RHS
End If
End Function
Public Function min(LHS As Integer, RHS As Integer) As Integer
min = LHS
If RHS < min Then
    min = RHS
End If
End Function

